МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
Національний університет Львівська політехніка
Кафедра ПЗ
До лабораторної роботи №2
З курсу “Методи та засоби КІТ”
На тему:
Арифметичні операції в середовищі програмування Delphi.
Тема:
Освоєння арифметичних операцій в Delphi.
Мета:
Ознайомитись з середовищем програмування Delphi, вивчити властивості компонент, які містяться у цьому середовищі програмування та використовуються для написання калькулятора з показом основних графіків тригонометричних функцій.
З невідомих компонентів ми будемо використовувати TChart (діаграма)
До основних властивостей належать тип діаграми (Кругова,стовпчики,стрічка…). А також серії(SeriesList),серії використовуються для побудови самої діаграми, доступ можна виконати таким кодом chart1.SeriesList[0].AddXY(i,sin(i),'',clRed)
В процесі виконання лабораторної роботи я використовував такі компоненти, як:
MainMenu дозволяє нам помістити головне меню в програму. При приміщенні MainMenu на форму це виглядає, як просто ікона. Ікони даного типу називають "невидимими компонентом", оскільки вони невидимі під час виконання програми. Створення меню включає три кроки: (1) приміщення TMainMenu на форму, (2) виклик Дизайнера Меню через властивість Items в Інспекторі Об'єктів, (3) визначення пунктів меню в Дизайнері Меню.
StaticText служить для відображення тексту на екрані. Ми можемо змінити шрифт і колір мітки, якщо двічі клацнемо на властивість Font в Інспекторі Об'єктів. Ми побачимо, що це легко зробити і під час виконання програми.
ВitBtn - кнопка на зразок ТВutton, проте на ній можна розмістити картинку (glyph). ТВitBtn має декілька приречених типів (bkClose, bkOK ), при виборі яких кнопка приймає відповідний вигляд.
PopUpMenu дозволяє нам помістити спливаюче меню.Має такі самі властивості як MainMenu
TrackBar-дозволяє задавати певне значення за значенням повзунка
Panel-дозволяє поміщати об’єкти на панель так як на форму. В більшості випадків використовується для дизайну
Unit1
procedure TForm1.Button1Click(Sender: TObject);
begin
if rez.Text='' then
rez.Text:=Button1.caption
else
rez.Text:=rez.Text+Button1.caption;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if rez.Text='' then
rez.Text:=Button2.caption
else
rez.Text:=rez.Text+Button2.caption;
end;
………
procedure TForm1.Button13Click(Sender: TObject);
begin
rez.Text:='';
Button12.Enabled:=True;
end;
procedure TForm1.Button16Click(Sender: TObject);
begin
if rez.Text<>'' then
begin
akum:=strtofloat(rez.Text);
buf:='+';
rez.Text:='';
end;
if pos(',',rez.Text)=0 then
Button12.Enabled:=True
else
Button12.Enabled:=False;
end;
procedure TForm1.Button23Click(Sender: TObject);
begin
if buf='+' then
akum:=akum+strtofloat(rez.Text);
if buf='-' then
akum:=akum-strtofloat(rez.Text);
if buf='*' then
akum:=akum*strtofloat(rez.Text);
if buf='/' then
akum:=akum/strtofloat(rez.Text);
rez.Text:=floattostr(akum);
end;
procedure TForm1.Button18Click(Sender: TObject);
begin
if rez.Text<>'' then
begin
akum:=strtofloat(rez.Text);
buf:='-';
rez.Text:='';
end;
if pos(',',rez.Text)=0 then
Button12.Enabled:=True
else
Button12.Enabled:=False;
end;
procedure TForm1.Button17Click(Sender: TObject);
begin
if rez.Text<>'' then
begin
akum:=strtofloat(rez.Text);
buf:='*';
rez.Text:='';
end;
if pos(',',rez.Text)=0 then
Button12.Enabled:=True
else
Button12.Enabled:=False;
end;
procedure TForm1.Button19Click(Sender: TObject);
begin
if rez.Text<>'' then
begin
akum:=strtofloat(rez.Text);
buf:='/';
rez.Text:='';
end;
if pos(',',rez.Text)=0 then
Button12.Enabled:=True
else
Button12.Enabled:=False;
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
rez.Text:=rez.Text+',';
Button12.Enabled:=False;
end;
procedure TForm1.Button11Click(Sender: TObject);
var
s:string;
begin
s:=rez.text;
if (s[1]<>'-') then
insert('-',s,1)
else
delete(s,1,1);
rez.Text:=s;
end;
procedure TForm1.Button14Click(Sender: TObject);
var
s:string;
begin
s:=rez.text;
delete(s,length(s),1);
rez.Text:=...